home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 11 / FM Towns Free Software Collection 11.iso / t_os / demo / takara / omake2.bas < prev    next >
Encoding:
BASIC Source File  |  1995-08-18  |  2.5 KB  |  77 lines
  1. 1010 SCREEN@ 0:CLS
  2. 1020 *GAMEN
  3. 1030 REM ****WAKU EGAKU ****************
  4. 1040  FOR J=0 TO 16 STEP 2
  5. 1050    LINE(J,20+J)-(630-J,476-J),PSET,5,B
  6. 1060  NEXT
  7. 1070  LINE(40,420)-(595,423),PSET,5,BF
  8. 1080 '
  9. 1090  LINE(152,228)-(488,228),PSET,2
  10. 1100  LINE(320, 60)-(320,395),PSET,2
  11. 1110 '
  12. 1120  LINE(180, 60)-(180,395),PSET,7,,&H6666
  13. 1130  LINE(250, 60)-(250,395),PSET,7,,&H6666
  14. 1140  LINE(390, 60)-(390,395),PSET,7,,&H6666
  15. 1150  LINE(460, 60)-(460,395),PSET,7,,&H6666
  16. 1160  LINE(152, 88)-(488, 88),PSET,7,,&H6666
  17. 1170  LINE(152,158)-(488,158),PSET,7,,&H6666
  18. 1180  LINE(152,298)-(488,298),PSET,7,,&H6666
  19. 1190  LINE(152,368)-(488,368),PSET,7,,&H6666
  20. 1200 '
  21. 1210  SYMBOL (309,231),"0", 1,1,7,0,PSET,0,2
  22. 1220 '
  23. 1230  SYMBOL (298,371),"-1",1,1,7,0,PSET,0,2
  24. 1240  SYMBOL (309, 91),"1", 1,1,7,0,PSET,0,2
  25. 1250 '
  26. 1260  SYMBOL (158,231),"-1",1,1,7,0,PSET,0,2
  27. 1270  SYMBOL (449,231),"1", 1,1,7,0,PSET,0,2
  28. 1271 '
  29. 1272 LOCATE 53,23:COLOR 7:PRINT "実行する   メニューへ";:COLOR 6
  30. 1273 LINE(420,434)-(488,456),PSET,7,B:LINE(510,434)-(594,456),PSET,7,B
  31. 1274 MOUSE 0:MOUSE 1,491,420,1
  32. 1275 X=MOUSE(4,0):Y=MOUSE(5,0)
  33. 1276 IF X>420 AND X<488 AND Y>434 AND Y<456 THEN GOTO 1285
  34. 1277 IF X>510 AND X<594 AND Y>434 AND Y<456 THEN GOTO *MENU_HE
  35. 1278 GOTO 1275
  36. 1279 '
  37. 1280 *MENU_HE
  38. 1281  LINE(419,432)-(595,457),PSET,0,BF:CLS 4:MOUSE 5
  39. 1282  CHAIN"SEITAKAK.BAS",,ALL
  40. 1283  RUN"SEITAKAK.BAS"
  41. 1284 '
  42. 1285 LINE(419,432)-(595,457),PSET,0,BF:CLS 4:MOUSE 5
  43. 1286 '
  44. 1338 LOCATE 7,3:COLOR 6:INPUT "何度";XTH
  45. 1339 '
  46. 1340  PI=3.14159!:TH=0:CHECK=1
  47. 1345  THT=(180-XTH)/2
  48. 1350  A=140*COS(TH*PI/180)*COS(TH*PI/180)*COS(TH*PI/180)
  49. 1360  B=140*COS(TH*PI/180)*SIN(TH*PI/180)*COS(TH*PI/180)
  50. 1370  C0=40+280-A:D0=100-B+127
  51. 1380  POINT(C0,D0)
  52. 1390 '
  53. 1400  LOCATE 7, 23:COLOR 6:PRINT C0;D0;:WAIT 100
  54. 1410 '
  55. 1420  FOR TH=0 TO 35720 STEP THT
  56. 1430    A=140*COS(TH*PI/180)*COS(TH*PI/180)*COS(TH*PI/180)
  57. 1440    B=140*COS(TH*PI/180)*SIN(TH*PI/180)*COS(TH*PI/180)
  58. 1450    C=40+280-A:D=100-B+127
  59. 1460  '
  60. 1470    LOCATE 7, 23:COLOR 6:PRINT C;D;
  61. 1480    LINE -(C,D),PSET,4'CIRCLE (C,D),3,2,,,,F,PSET,2
  62. 1495    C1=ABS(C-C0):D1=ABS(D-D0)
  63. 1496    LOCATE 7, 21:COLOR 6:PRINT C0;D0;C1;D1;
  64. 1500    IF CHECK=1 THEN GOTO 1520
  65. 1510    IF C1<1 AND D1<1 THEN GOTO 1545
  66. 1520    CHECK=CHECK+1
  67. 1525    'WAIT 50
  68. 1530  NEXT'
  69. 1540 ' 
  70. 1545 'WAIT 100:CIRCLE (320,228),140,5
  71. 1546 '
  72. 1547 CLS 4
  73. 1550 LOCATE 7, 23:COLOR 6:PRINT "もう１度 やるときは､ 何かキーを押して下さい";
  74. 1560 WHILE INKEY$="":WEND 
  75. 1565 ' 
  76. 1570 GOTO 1010
  77.